home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / sunpro / sunpro-keys.el.z / sunpro-keys.el
Encoding:
Text File  |  1998-05-21  |  1.1 KB  |  27 lines
  1. ;;; sunpro-keys.el --- SunPro-specific key bindings
  2.  
  3. ;; Copyright (C) 1993, 1994 Sun Microsystems, Inc
  4.  
  5. (define-key global-map 'find 'x-isearch-maybe-with-region)
  6.  
  7. (define-key isearch-mode-map 'f18 'isearch-yank-x-clipboard)
  8. (add-hook 'isearch-mode-hook 'sunpro-set-isearch-direction)
  9. (define-key isearch-mode-map 'f19 'isearch-repeat-forward)
  10.  
  11. (defun x-isearch-maybe-with-region (&optional backward-p)
  12.   "Enter isearch mode.  If the region is active, find the selected text."
  13.   (interactive "P")
  14.   (let ((sunpro-isearch-direction
  15.      (if backward-p 'backward 'forward)))
  16.     (if (and zmacs-regions (mark))
  17.     (progn (isearch-mode (not backward-p)) (isearch-yank-x-selection))
  18.       (if backward-p (isearch-backward) (isearch-forward)))))
  19.  
  20. (defun sunpro-set-isearch-direction ()
  21.   (if (or (eq this-command 'isearch-backward)
  22.       (eq this-command 'isearch-backward-regexp)
  23.       (and (boundp 'sunpro-isearch-direction)
  24.            (eq sunpro-isearch-direction 'backward)))
  25.       (define-key isearch-mode-map 'f19 'isearch-repeat-backward)
  26.     (define-key isearch-mode-map 'f19 'isearch-repeat-forward)))
  27.